10 POKE53280,.:POKE53281,.:PRINT"[147]";
15 S=54272:FORT=0TO6:READA:POKES+T,A:NEXT:POKES+24,15:POKES+4,33:POKES+4,65
16 DATA0,26,8,205,0,202,34
30 T$="[147]WIR SIND NUN    [158] UNTEN ANGEKOMMEN!"
40 FORI=1TOLEN(T$):PRINT"[145]"CHR$(20)TAB(17)MID$(T$,I,1)
70 FORP=0TO100:NEXTP:NEXTI:
90 T$="WER WILL, [145]KANN OBEN [145][129]WIEDER    [145][150]ANFANGEN..[145]  "
110 FORI=1TOLEN(T$):PRINT"  "CHR$(20)TAB(19)MID$(T$,I,11)
120 FORP=0TO100:NEXTP:NEXTI:
125 S=54272:FORT=0TO6:READA:POKES+T,A:NEXT:POKES+24,15:POKES+4,17:POKES+4,65
126 DATA0,44,6,102,0,202,42
140 PRINT"... HIER IST NAEMLICH ...  ";:TI$="000002":WAIT161,1:GOTO145
145 S=54272:FORT=0TO6:READA:POKES+T,A:NEXT:POKES+24,15:POKES+4,129:POKES+4,65
146 DATA0,14,4,202,0,239,45
148 POKE56325,2
150 FORX=.TO15:PRINT"[157][157][157][157][157][157]";:NEXT
190 FORX=.TO400:NEXT:PRINT" E[159] ";
210 FORX=.TO410:NEXT:PRINT" N[156] ";
230 FORX=.TO420:NEXT:PRINT" D ";
250 FORX=.TO430:NEXT:PRINT" E ";
270 FORX=.TO440:NEXT:PRINT" [154]! ";   :
310 PRINT"":POKE56325,58
370 TI$="000003":WAIT161,1:
372 S=54272:FORT=0TO6:READA:POKES+T,A:NEXT:POKES+24,15:POKES+4,129:POKES+4,128
373 DATA0,14,4,202,0,239,45
390 POKE53280,.:POKE53281,.:POKE646,12
410 T$="[147]********************   [158]CIAO!"
420 T$=T$+"                            [151]LUKIAN   "
430 FORI=1TOLEN(T$):PRINT"[145]"CHR$(20)TAB(19)MID$(T$,I,1)
450 FORP=0TO100:NEXTP:NEXTI
470 S=54272:FORT=0TO6:READA:POKES+T,A:NEXT:POKES+24,15:POKES+4,65 :POKES+4,64
490 DATA4,10,8,2,4,10,45:GOTO500
500 PRINT"ABSCHIED ODER DIRECTORY?    <A/D>"
501 POKE198,0:WAIT198,1:GETA$
502 IFA$=CHR$(65)THEN 600
503 IFA$=CHR$(68)THEN 700
550 GOTO501
600 POKE53280,6:POKE53281,6:POKE646,14:SYS58253
700 PRINT"[147][144]LOAD"CHR$(34)"$";
701 PRINTCHR$(34)",8":PRINT:PRINT
702 PRINT:PRINT:PRINT"LIST"
703 POKE198,3:POKE631,19:POKE632,13:POKE633,13:POKE646,14:END